#!/usr/bin/perl
use strict;

my $module = @ARGV[0] || print('parseYPJ [moduleName]') && exit(-1);

my $ypFile = $module.".yp";
my $pmFile = $module.".pm";

#print "perl parseYPJ.pl ".$module."\n";
#print "perl c:\perl\lib\yapp -v ".$ypFile." ".$pmFile."\n";
#print "perl yp2js.pl ".$pmFile."\n";

system "perl parseYPJ.pl ".$module;
system "perl c:\\perl\\lib\\yapp -o ".$pmFile." ".$ypFile;
system "perl yp2js.pl ".$pmFile;
